From: Juanma Barranquero <lekktu@gmail.com>
Date: Wed, 20 Jun 2007 15:12:01 +0000 (+0000)
Subject: (ido-find-file-in-dir): Use `file-name-as-directory'.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~18290
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=4659c317e023cb15044c50a77d5d21410c93f942;p=emacs.git

(ido-find-file-in-dir): Use `file-name-as-directory'.
---

diff --git a/lisp/ido.el b/lisp/ido.el
index 5a7be3e5ae6..0808075b495 100644
--- a/lisp/ido.el
+++ b/lisp/ido.el
@@ -3994,8 +3994,7 @@ For details of keybindings, see `ido-switch-buffer'."
 (defun ido-find-file-in-dir (dir)
   "Switch to another file starting from DIR."
   (interactive "DDir: ")
-  (if (not (equal (substring dir -1) "/"))
-      (setq dir (concat dir "/")))
+  (setq dir (file-name-as-directory dir))
   (ido-file-internal ido-default-file-method nil dir nil nil nil 'ignore))
 
 ;;;###autoload